BEGIN "PTST"
REQUIRE "PRANDR.SAI[BIG,HPM]" SOURCE_FILE;
INTEGER M,N,I,FOO; BOOLEAN LAST; STRING S;
OUTSTR("N:"); N←CVD(INCHWL);
   BEGIN
   INTEGER ARRAY A[1:N];
   OUTSTR("VALUES:"); S←INCHWL;
   FOR I←1 STEP 1 UNTIL N DO A[I]←INTSCAN(S,FOO);
   LAST←TRUE; M←-1;
   DO
      BEGIN
      PWITHR(A,N,LAST); M←M+1;
      FOR I←1 STEP 1 UNTIL N DO OUTSTR(CVS(A[I])&" "); OUTSTR('15&'12);
      END  UNTIL LAST;
   OUTSTR("TOTAL "&CVS(M)&'15&'12);
   END;
END;